MacWorld 2000 January

home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 2000 January / Macworld (2000-01).dmg / System Utilities / Apple Utilities⁄Updates / MacsBug 6.6.sea / MacsBug 6.6 / Building dcmds / Pascal Samples / Heap.p < prev next >
MacBinary | 1999-10-20 | 3.6 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: Heap.p
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	ZX81 Sinclair BASIC `(image/sinclairBASIC)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`10%`	dexvert	Jesper Olsen Module `(music/jesperOlsen)`	magic	Supported
`1%`	dexvert	bsdiff patch `(other/bsdiffPatch)`	ext	Unsupported
`1%`	dexvert	imgdiff patch `(other/imgdiffPatch)`	ext	Unsupported
`1%`	dexvert	WSUS Patch Storage File `(other/wsusPatchStorageFile)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Wed Oct 20 13:00:00 1999, modified Wed Oct 20 13:00:00 1999, creator 'MPS ', type ASCII, 3037 bytes "Heap.p" , at 0xc5d 428 bytes resource	default (weak)
`99%`	file	data	default
`49%`	TrID	Macintosh plain text (MacBinary)	default
`33%`	TrID	TTComp archive compressed (bin-4K)	default (weak)
`16%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 48 65 61 70 2e 70 | 00 00 00 00 00 00 00 00 |..Heap.p|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 0b dd 00 | 00 01 ac b4 33 a5 90 b4 |........|....3...|
|00000060| 33 a5 90 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |3.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 b1 9f 00 00 |........|........|
|00000080| 7b 0d 09 46 69 6c 65 3a | 09 09 48 65 61 70 2e 70 |{..File:|..Heap.p|
|00000090| 0d 0d 09 43 6f 6e 74 61 | 69 6e 73 3a 09 41 20 73 |...Conta|ins:.A s|
|000000a0| 61 6d 70 6c 65 20 64 63 | 6d 64 20 77 68 69 63 68 |ample dc|md which|
|000000b0| 20 64 75 6d 70 73 20 68 | 65 61 70 20 62 6c 6f 63 | dumps h|eap bloc|
|000000c0| 6b 73 2e 0d 0d 09 57 72 | 69 74 74 65 6e 20 62 79 |ks....Wr|itten by|
|000000d0| 3a 09 4a 4d 33 20 3d 20 | 4a 69 6d 20 4d 75 72 70 |:.JM3 = |Jim Murp|
|000000e0| 68 79 0d 0d 09 43 6f 70 | 79 72 69 67 68 74 3a 09 |hy...Cop|yright:.|
|000000f0| a9 20 31 39 39 34 20 62 | 79 20 41 70 70 6c 65 20 |. 1994 b|y Apple |
|00000100| 43 6f 6d 70 75 74 65 72 | 2c 20 49 6e 63 2e 2c 20 |Computer|, Inc., |
|00000110| 41 6c 6c 20 52 69 67 68 | 74 73 20 52 65 73 65 72 |All Righ|ts Reser|
|00000120| 76 65 64 2e 0d 0d 09 43 | 68 61 6e 67 65 20 48 69 |ved....C|hange Hi|
|00000130| 73 74 6f 72 79 20 28 6d | 6f 73 74 20 72 65 63 65 |story (m|ost rece|
|00000140| 6e 74 20 66 69 72 73 74 | 29 3a 0d 0d 09 09 20 3c |nt first|):.... <|
|00000150| 32 3e 20 20 20 31 34 2d | 44 65 63 2d 39 34 09 4a |2>   14-|Dec-94.J|
|00000160| 4d 33 09 09 55 70 64 61 | 74 65 64 20 66 6f 72 20 |M3..Upda|ted for |
|00000170| 6e 65 77 20 76 65 72 73 | 69 6f 6e 20 33 20 64 63 |new vers|ion 3 dc|
|00000180| 6d 64 20 72 65 71 75 69 | 72 65 6d 65 6e 74 73 2e |md requi|rements.|
|00000190| 0d 0d 7d 0d 0d 55 4e 49 | 54 20 48 65 61 70 3b 0d |..}..UNI|T Heap;.|
|000001a0| 0d 28 2a 20 54 68 65 20 | 66 6f 6c 6c 6f 77 69 6e |.(* The |followin|
|000001b0| 67 20 4d 50 57 20 63 6f | 6d 6d 61 6e 64 73 20 77 |g MPW co|mmands w|
|000001c0| 69 6c 6c 20 62 75 69 6c | 64 20 74 68 65 20 64 63 |ill buil|d the dc|
|000001d0| 6d 64 20 61 6e 64 20 63 | 6f 70 79 20 69 74 20 74 |md and c|opy it t|
|000001e0| 6f 20 74 68 65 0d 20 20 | 20 22 44 65 62 75 67 67 |o the.  | "Debugg|
|000001f0| 65 72 20 50 72 65 66 73 | 22 20 66 69 6c 65 20 69 |er Prefs|" file i|
|00000200| 6e 20 74 68 65 20 53 79 | 73 74 65 6d 20 66 6f 6c |n the Sy|stem fol|
|00000210| 64 65 72 2e 20 54 68 65 | 20 64 63 6d 64 27 73 20 |der. The| dcmd's |
|00000220| 6e 61 6d 65 20 69 6e 0d | 09 09 20 4d 61 63 73 42 |name in.|.. MacsB|
|00000230| 75 67 20 77 69 6c 6c 20 | 62 65 20 74 68 65 20 6e |ug will |be the n|
|00000240| 61 6d 65 20 6f 66 20 74 | 68 65 20 66 69 6c 65 20 |ame of t|he file |
|00000250| 62 75 69 6c 74 20 62 79 | 20 74 68 65 20 4c 69 6e |built by| the Lin|
|00000260| 6b 65 72 2e 0d 0d 09 20 | 20 20 20 50 61 73 63 61 |ker.... |   Pasca|
|00000270| 6c 20 48 65 61 70 2e 70 | 0d 09 20 20 20 20 4c 69 |l Heap.p|..    Li|
|00000280| 6e 6b 20 64 63 6d 64 47 | 6c 75 65 2e 61 2e 6f 20 |nk dcmdG|lue.a.o |
|00000290| 48 65 61 70 2e 70 2e 6f | 20 22 7b 4c 69 62 72 61 |Heap.p.o| "{Libra|
|000002a0| 72 69 65 73 7d 52 75 6e | 74 69 6d 65 2e 6f 22 20 |ries}Run|time.o" |
|000002b0| 22 7b 50 4c 69 62 72 61 | 72 69 65 73 7d 50 61 73 |"{PLibra|ries}Pas|
|000002c0| 4c 69 62 2e 6f 22 20 2d | 6f 20 48 65 61 70 0d 09 |Lib.o" -|o Heap..|
|000002d0| 20 20 20 20 42 75 69 6c | 64 44 63 6d 64 20 48 65 |    Buil|dDcmd He|
|000002e0| 61 70 20 31 30 30 0d 09 | 09 09 09 09 45 63 68 6f |ap 100..|....Echo|
|000002f0| 20 27 69 6e 63 6c 75 64 | 65 20 22 48 65 61 70 22 | 'includ|e "Heap"|
|00000300| 3b 27 09 09 09 7c 09 09 | 09 52 65 7a 20 2d 61 20 |;'...|..|.Rez -a |
|00000310| 2d 6f 20 22 7b 73 79 73 | 74 65 6d 46 6f 6c 64 65 |-o "{sys|temFolde|
|00000320| 72 7d 44 65 62 75 67 67 | 65 72 20 50 72 65 66 73 |r}Debugg|er Prefs|
|00000330| 22 0d 2a 29 0d 0d 7b 24 | 52 2d 7d 0d 0d 49 4e 54 |".*)..{$|R-}..INT|
|00000340| 45 52 46 41 43 45 0d 0d | 09 09 55 53 45 53 20 4d |ERFACE..|..USES M|
|00000350| 65 6d 54 79 70 65 73 2c | 20 64 63 6d 64 3b 0d 09 |emTypes,| dcmd;..|
|00000360| 09 0d 20 20 7b 20 50 75 | 62 6c 69 63 20 64 65 63 |..  { Pu|blic dec|
|00000370| 6c 61 72 61 74 69 6f 6e | 20 66 6f 72 20 64 63 6d |laration| for dcm|
|00000380| 64 47 6c 75 65 2e 20 4d | 75 73 74 20 62 65 20 69 |dGlue. M|ust be i|
|00000390| 6e 20 65 76 65 72 79 20 | 64 63 6d 64 2e 20 54 68 |n every |dcmd. Th|
|000003a0| 65 20 6e 61 6d 65 20 63 | 61 6e 6e 6f 74 20 62 65 |e name c|annot be|
|000003b0| 20 63 68 61 6e 67 65 64 | 2e 20 7d 0d 09 09 50 52 | changed|. }...PR|
|000003c0| 4f 43 45 44 55 52 45 20 | 43 6f 6d 6d 61 6e 64 45 |OCEDURE |CommandE|
|000003d0| 6e 74 72 79 20 28 70 61 | 72 61 6d 50 74 72 3a 20 |ntry (pa|ramPtr: |
|000003e0| 64 63 6d 64 42 6c 6f 63 | 6b 50 74 72 29 3b 0d 0d |dcmdBloc|kPtr);..|
|000003f0| 0d 49 4d 50 4c 45 4d 45 | 4e 54 41 54 49 4f 4e 0d |.IMPLEME|NTATION.|
|00000400| 0d 50 52 4f 43 45 44 55 | 52 45 20 4e 75 6d 62 65 |.PROCEDU|RE Numbe|
|00000410| 72 54 6f 48 65 78 20 28 | 6e 75 6d 62 65 72 3a 20 |rToHex (|number: |
|00000420| 4c 4f 4e 47 49 4e 54 3b | 20 56 41 52 20 68 65 78 |LONGINT;| VAR hex|
|00000430| 3a 20 53 74 72 32 35 35 | 29 3b 0d 56 41 52 09 64 |: Str255|);.VAR.d|
|00000440| 69 67 69 74 73 3a 20 53 | 74 72 32 35 35 3b 0d 09 |igits: S|tr255;..|
|00000450| 6e 3a 20 49 4e 54 45 47 | 45 52 3b 0d 42 45 47 49 |n: INTEG|ER;.BEGI|
|00000460| 4e 0d 09 64 69 67 69 74 | 73 20 3a 3d 20 27 30 31 |N..digit|s := '01|
|00000470| 32 33 34 35 36 37 38 39 | 41 42 43 44 45 46 27 3b |23456789|ABCDEF';|
|00000480| 0d 09 68 65 78 20 20 20 | 20 3a 3d 20 27 30 30 30 |..hex   | := '000|
|00000490| 30 30 30 30 30 27 3b 0d | 09 46 4f 52 20 6e 20 3a |00000';.|.FOR n :|
|000004a0| 3d 20 38 20 44 4f 57 4e | 54 4f 20 31 20 44 4f 0d |= 8 DOWN|TO 1 DO.|
|000004b0| 09 42 45 47 49 4e 0d 09 | 09 68 65 78 5b 6e 5d 20 |.BEGIN..|.hex[n] |
|000004c0| 3a 3d 20 64 69 67 69 74 | 73 5b 31 20 2b 20 28 6e |:= digit|s[1 + (n|
|000004d0| 75 6d 62 65 72 20 4d 4f | 44 20 31 36 29 5d 3b 0d |umber MO|D 16)];.|
|000004e0| 09 09 6e 75 6d 62 65 72 | 20 3a 3d 20 6e 75 6d 62 |..number| := numb|
|000004f0| 65 72 20 44 49 56 20 31 | 36 3b 0d 09 45 4e 44 3b |er DIV 1|6;..END;|
|00000500| 0d 45 4e 44 3b 0d 0d 0d | 50 52 4f 43 45 44 55 52 |.END;...|PROCEDUR|
|00000510| 45 20 44 69 73 70 6c 61 | 79 42 6c 6f 63 6b 49 6e |E Displa|yBlockIn|
|00000520| 66 6f 20 28 62 6c 6f 63 | 6b 41 64 64 72 65 73 73 |fo (bloc|kAddress|
|00000530| 2c 20 62 6c 6f 63 6b 4c | 65 6e 67 74 68 2c 20 6d |, blockL|ength, m|
|00000540| 61 73 74 65 72 50 74 72 | 3a 20 4c 4f 4e 47 49 4e |asterPtr|: LONGIN|
|00000550| 54 3b 20 62 6c 6f 63 6b | 54 79 70 65 3a 20 49 4e |T; block|Type: IN|
|00000560| 54 45 47 45 52 3b 20 6c | 6f 63 6b 65 64 2c 20 70 |TEGER; l|ocked, p|
|00000570| 75 72 67 65 61 62 6c 65 | 2c 20 72 65 73 6f 75 72 |urgeable|, resour|
|00000580| 63 65 3a 20 42 4f 4f 4c | 45 41 4e 29 3b 0d 56 41 |ce: BOOL|EAN);.VA|
|00000590| 52 20 76 61 6c 75 65 3a | 20 53 74 72 32 35 35 3b |R value:| Str255;|
|000005a0| 0d 42 45 47 49 4e 0d 09 | 4e 75 6d 62 65 72 54 6f |.BEGIN..|NumberTo|
|000005b0| 48 65 78 20 28 62 6c 6f | 63 6b 41 64 64 72 65 73 |Hex (blo|ckAddres|
|000005c0| 73 2c 20 76 61 6c 75 65 | 29 3b 0d 09 64 63 6d 64 |s, value|);..dcmd|
|000005d0| 44 72 61 77 4c 69 6e 65 | 20 28 76 61 6c 75 65 29 |DrawLine| (value)|
|000005e0| 3b 0d 0d 09 4e 75 6d 62 | 65 72 54 6f 48 65 78 20 |;...Numb|erToHex |
|000005f0| 28 62 6c 6f 63 6b 4c 65 | 6e 67 74 68 2c 20 76 61 |(blockLe|ngth, va|
|00000600| 6c 75 65 29 3b 0d 09 64 | 63 6d 64 44 72 61 77 53 |lue);..d|cmdDrawS|
|00000610| 74 72 69 6e 67 20 28 27 | 20 27 29 3b 0d 09 64 63 |tring ('| ');..dc|
|00000620| 6d 64 44 72 61 77 53 74 | 72 69 6e 67 20 28 76 61 |mdDrawSt|ring (va|
|00000630| 6c 75 65 29 3b 0d 0d 09 | 49 46 20 62 6c 6f 63 6b |lue);...|IF block|
|00000640| 54 79 70 65 20 3d 20 72 | 65 6c 6f 63 61 74 61 62 |Type = r|elocatab|
|00000650| 6c 65 42 6c 6f 63 6b 20 | 54 48 45 4e 0d 09 42 45 |leBlock |THEN..BE|
|00000660| 47 49 4e 0d 09 09 4e 75 | 6d 62 65 72 54 6f 48 65 |GIN...Nu|mberToHe|
|00000670| 78 20 28 6d 61 73 74 65 | 72 50 74 72 2c 20 76 61 |x (maste|rPtr, va|
|00000680| 6c 75 65 29 3b 0d 09 09 | 64 63 6d 64 44 72 61 77 |lue);...|dcmdDraw|
|00000690| 53 74 72 69 6e 67 20 28 | 27 20 27 29 3b 0d 09 09 |String (|' ');...|
|000006a0| 64 63 6d 64 44 72 61 77 | 53 74 72 69 6e 67 20 28 |dcmdDraw|String (|
|000006b0| 76 61 6c 75 65 29 3b 0d | 09 0d 09 09 64 63 6d 64 |value);.|....dcmd|
|000006c0| 44 72 61 77 53 74 72 69 | 6e 67 20 28 27 20 27 29 |DrawStri|ng (' ')|
|000006d0| 3b 0d 09 09 49 46 20 6c | 6f 63 6b 65 64 20 54 48 |;...IF l|ocked TH|
|000006e0| 45 4e 0d 09 09 09 64 63 | 6d 64 44 72 61 77 53 74 |EN....dc|mdDrawSt|
|000006f0| 72 69 6e 67 20 28 27 4c | 6f 63 6b 65 64 20 27 29 |ring ('L|ocked ')|
|00000700| 3b 0d 09 09 49 46 20 70 | 75 72 67 65 61 62 6c 65 |;...IF p|urgeable|
|00000710| 20 54 48 45 4e 0d 09 09 | 09 64 63 6d 64 44 72 61 | THEN...|.dcmdDra|
|00000720| 77 53 74 72 69 6e 67 20 | 28 27 50 75 72 67 65 61 |wString |('Purgea|
|00000730| 62 6c 65 20 27 29 3b 0d | 09 09 49 46 20 72 65 73 |ble ');.|..IF res|
|00000740| 6f 75 72 63 65 20 54 48 | 45 4e 0d 09 09 09 64 63 |ource TH|EN....dc|
|00000750| 6d 64 44 72 61 77 53 74 | 72 69 6e 67 20 28 27 52 |mdDrawSt|ring ('R|
|00000760| 65 73 6f 75 72 63 65 20 | 27 29 3b 0d 09 45 4e 44 |esource |');..END|
|00000770| 3b 0d 45 4e 44 3b 0d 0d | 0d 50 52 4f 43 45 44 55 |;.END;..|.PROCEDU|
|00000780| 52 45 20 43 6f 6d 6d 61 | 6e 64 45 6e 74 72 79 20 |RE Comma|ndEntry |
|00000790| 28 70 61 72 61 6d 50 74 | 72 3a 20 44 43 6d 64 42 |(paramPt|r: DCmdB|
|000007a0| 6c 6f 63 6b 50 74 72 29 | 3b 0d 42 45 47 49 4e 0d |lockPtr)|;.BEGIN.|
|000007b0| 09 49 46 20 70 61 72 61 | 6d 50 74 72 5e 2e 72 65 |.IF para|mPtr^.re|
|000007c0| 71 75 65 73 74 20 3d 20 | 64 63 6d 64 49 6e 69 74 |quest = |dcmdInit|
|000007d0| 20 54 48 45 4e 0d 09 42 | 45 47 49 4e 09 7b 20 54 | THEN..B|EGIN.{ T|
|000007e0| 68 65 20 64 63 6d 64 20 | 67 65 74 73 20 63 61 6c |he dcmd |gets cal|
|000007f0| 6c 65 64 20 6f 6e 63 65 | 20 77 68 65 6e 20 6c 6f |led once| when lo|
|00000800| 61 64 65 64 20 74 6f 20 | 69 6e 69 74 20 69 74 73 |aded to |init its|
|00000810| 65 6c 66 20 7d 0d 09 45 | 4e 44 0d 09 45 4c 53 45 |elf }..E|ND..ELSE|
|00000820| 20 49 46 20 70 61 72 61 | 6d 50 74 72 5e 2e 72 65 | IF para|mPtr^.re|
|00000830| 71 75 65 73 74 20 3d 20 | 64 63 6d 64 44 6f 49 74 |quest = |dcmdDoIt|
|00000840| 20 54 48 45 4e 0d 09 42 | 45 47 49 4e 09 7b 20 44 | THEN..B|EGIN.{ D|
|00000850| 6f 20 74 68 65 20 63 6f | 6d 6d 61 6e 64 27 73 20 |o the co|mmand's |
|00000860| 6e 6f 72 6d 61 6c 20 66 | 75 6e 63 74 69 6f 6e 20 |normal f|unction |
|00000870| 7d 0d 09 09 09 7b 20 44 | 72 61 77 20 74 68 65 20 |}....{ D|raw the |
|00000880| 63 6f 6c 75 6d 6e 20 6c | 61 62 65 6c 73 20 7d 0d |column l|abels }.|
|00000890| 09 09 64 63 6d 64 44 72 | 61 77 4c 69 6e 65 20 28 |..dcmdDr|awLine (|
|000008a0| 27 20 20 41 64 64 72 65 | 73 73 20 20 20 4c 65 6e |'  Addre|ss   Len|
|000008b0| 67 74 68 20 20 4d 73 74 | 72 20 50 74 72 27 29 3b |gth  Mst|r Ptr');|
|000008c0| 0d 0d 09 09 7b 20 54 68 | 65 20 4d 61 63 73 42 75 |....{ Th|e MacsBu|
|000008d0| 67 20 68 65 61 70 20 69 | 74 65 72 61 74 6f 72 20 |g heap i|terator |
|000008e0| 77 69 6c 6c 20 63 61 6c | 6c 20 44 69 73 70 6c 61 |will cal|l Displa|
|000008f0| 79 42 6c 6f 63 6b 49 6e | 66 6f 20 6f 6e 63 65 20 |yBlockIn|fo once |
|00000900| 66 6f 72 20 65 61 63 68 | 20 62 6c 6f 63 6b 20 69 |for each| block i|
|00000910| 6e 20 74 68 65 20 68 65 | 61 70 20 7d 0d 09 09 64 |n the he|ap }...d|
|00000920| 63 6d 64 46 6f 72 41 6c | 6c 48 65 61 70 42 6c 6f |cmdForAl|lHeapBlo|
|00000930| 63 6b 73 20 28 40 44 69 | 73 70 6c 61 79 42 6c 6f |cks (@Di|splayBlo|
|00000940| 63 6b 49 6e 66 6f 29 3b | 0d 09 45 4e 44 0d 09 45 |ckInfo);|..END..E|
|00000950| 4c 53 45 20 49 46 20 70 | 61 72 61 6d 50 74 72 5e |LSE IF p|aramPtr^|
|00000960| 2e 72 65 71 75 65 73 74 | 20 3d 20 64 63 6d 64 48 |.request| = dcmdH|
|00000970| 65 6c 70 20 54 48 45 4e | 20 7b 20 44 69 73 70 6c |elp THEN| { Displ|
|00000980| 61 79 20 74 68 65 20 63 | 6f 6d 6d 61 6e 64 27 73 |ay the c|ommand's|
|00000990| 20 68 65 6c 70 20 69 6e | 66 6f 72 6d 61 74 69 6f | help in|formatio|
|000009a0| 6e 20 7d 0d 09 42 45 47 | 49 4e 0d 09 09 64 63 6d |n }..BEG|IN...dcm|
|000009b0| 64 44 72 61 77 4c 69 6e | 65 20 28 27 44 69 73 70 |dDrawLin|e ('Disp|
|000009c0| 6c 61 79 73 20 69 6e 66 | 6f 72 6d 61 74 69 6f 6e |lays inf|ormation|
|000009d0| 20 61 62 6f 75 74 20 61 | 6c 6c 20 68 65 61 70 20 | about a|ll heap |
|000009e0| 62 6c 6f 63 6b 73 2e 27 | 29 3b 0d 09 45 4e 44 0d |blocks.'|);..END.|
|000009f0| 09 45 4c 53 45 20 49 46 | 20 70 61 72 61 6d 50 74 |.ELSE IF| paramPt|
|00000a00| 72 5e 2e 72 65 71 75 65 | 73 74 20 3d 20 64 63 6d |r^.reque|st = dcm|
|00000a10| 64 47 65 74 49 6e 66 6f | 20 54 48 45 4e 0d 09 42 |dGetInfo| THEN..B|
|00000a20| 45 47 49 4e 20 7b 20 44 | 69 73 70 6c 61 79 20 74 |EGIN { D|isplay t|
|00000a30| 68 65 20 63 6f 6d 6d 61 | 6e 64 27 73 20 68 65 6c |he comma|nd's hel|
|00000a40| 70 20 69 6e 66 6f 72 6d | 61 74 69 6f 6e 20 7d 0d |p inform|ation }.|
|00000a50| 0d 09 09 47 65 74 49 6e | 66 6f 52 65 71 75 65 73 |...GetIn|foReques|
|00000a60| 74 42 6c 6f 63 6b 50 74 | 72 28 70 61 72 61 6d 50 |tBlockPt|r(paramP|
|00000a70| 74 72 5e 2e 72 65 71 75 | 65 73 74 49 4f 42 6c 6f |tr^.requ|estIOBlo|
|00000a80| 63 6b 29 5e 2e 75 73 61 | 67 65 53 74 72 20 3a 3d |ck)^.usa|geStr :=|
|00000a90| 20 27 27 3b 0d 09 09 47 | 65 74 49 6e 66 6f 52 65 | '';...G|etInfoRe|
|00000aa0| 71 75 65 73 74 42 6c 6f | 63 6b 50 74 72 28 70 61 |questBlo|ckPtr(pa|
|00000ab0| 72 61 6d 50 74 72 5e 2e | 72 65 71 75 65 73 74 49 |ramPtr^.|requestI|
|00000ac0| 4f 42 6c 6f 63 6b 29 5e | 2e 63 72 65 64 69 74 73 |OBlock)^|.credits|
|00000ad0| 53 74 72 20 3a 3d 20 27 | 27 3b 0d 0d 09 09 7b 20 |Str := '|';....{ |
|00000ae0| 53 65 74 20 74 68 65 20 | 76 65 72 73 69 6f 6e 20 |Set the |version |
|00000af0| 74 6f 20 33 2e 30 20 66 | 69 6e 61 6c 2e 20 7d 0d |to 3.0 f|inal. }.|
|00000b00| 0d 09 09 47 65 74 49 6e | 66 6f 52 65 71 75 65 73 |...GetIn|foReques|
|00000b10| 74 42 6c 6f 63 6b 50 74 | 72 28 70 61 72 61 6d 50 |tBlockPt|r(paramP|
|00000b20| 74 72 5e 2e 72 65 71 75 | 65 73 74 49 4f 42 6c 6f |tr^.requ|estIOBlo|
|00000b30| 63 6b 29 5e 2e 64 63 6d | 64 56 65 72 73 69 6f 6e |ck)^.dcm|dVersion|
|00000b40| 2e 6d 61 6a 6f 72 52 65 | 76 20 3a 3d 20 24 30 33 |.majorRe|v := $03|
|00000b50| 3b 0d 09 09 47 65 74 49 | 6e 66 6f 52 65 71 75 65 |;...GetI|nfoReque|
|00000b60| 73 74 42 6c 6f 63 6b 50 | 74 72 28 70 61 72 61 6d |stBlockP|tr(param|
|00000b70| 50 74 72 5e 2e 72 65 71 | 75 65 73 74 49 4f 42 6c |Ptr^.req|uestIOBl|
|00000b80| 6f 63 6b 29 5e 2e 64 63 | 6d 64 56 65 72 73 69 6f |ock)^.dc|mdVersio|
|00000b90| 6e 2e 6d 69 6e 6f 72 41 | 6e 64 42 75 67 52 65 76 |n.minorA|ndBugRev|
|00000ba0| 20 3a 3d 20 24 30 30 3b | 0d 09 09 47 65 74 49 6e | := $00;|...GetIn|
|00000bb0| 66 6f 52 65 71 75 65 73 | 74 42 6c 6f 63 6b 50 74 |foReques|tBlockPt|
|00000bc0| 72 28 70 61 72 61 6d 50 | 74 72 5e 2e 72 65 71 75 |r(paramP|tr^.requ|
|00000bd0| 65 73 74 49 4f 42 6c 6f | 63 6b 29 5e 2e 64 63 6d |estIOBlo|ck)^.dcm|
|00000be0| 64 56 65 72 73 69 6f 6e | 2e 73 74 61 67 65 20 3a |dVersion|.stage :|
|00000bf0| 3d 20 24 38 30 3b 0d 09 | 09 47 65 74 49 6e 66 6f |= $80;..|.GetInfo|
|00000c00| 52 65 71 75 65 73 74 42 | 6c 6f 63 6b 50 74 72 28 |RequestB|lockPtr(|
|00000c10| 70 61 72 61 6d 50 74 72 | 5e 2e 72 65 71 75 65 73 |paramPtr|^.reques|
|00000c20| 74 49 4f 42 6c 6f 63 6b | 29 5e 2e 64 63 6d 64 56 |tIOBlock|)^.dcmdV|
|00000c30| 65 72 73 69 6f 6e 2e 6e | 6f 6e 52 65 6c 52 65 76 |ersion.n|onRelRev|
|00000c40| 20 3a 3d 20 24 30 30 3b | 09 09 0d 09 45 4e 44 3b | := $00;|....END;|
|00000c50| 0d 0d 45 4e 44 3b 0d 0d | 45 4e 44 2e 0d 00 00 00 |..END;..|END.....|
|00000c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c80| 00 00 01 00 00 00 01 66 | 00 00 00 66 00 00 00 46 |.......f|...f...F|
|00000c90| 64 20 2a 09 09 09 09 72 | 65 74 41 64 64 72 29 3b |d *....r|etAddr);|
|00000ca0| 0d 0d 45 58 54 45 52 4e | 5f 41 50 49 28 20 4f 53 |..EXTERN|_API( OS|
|00000cb0| 06 48 65 61 70 2e 70 61 | 72 79 20 49 74 65 6d 73 |.Heap.pa|ry Items|
|00000cc0| 20 45 78 74 65 6e 73 69 | 6f 6e 34 32 20 32 31 31 | Extensi|on42 211|
|00000cd0| 00 65 54 45 58 54 4d 50 | 53 20 00 00 00 00 00 81 |.eTEXTMP|S ......|
|00000ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cf0| 00 00 b4 33 5f 40 00 00 | 0b dd 00 00 01 ac 2a 2f |...3_@..|......*/|
|00000d00| 0d 0d 45 58 54 45 52 4e | 5f 41 50 49 28 20 4f 53 |..EXTERN|_API( OS|
|00000d10| 53 74 61 74 75 73 20 29 | 0d 4f 54 43 6f 6e 6e 65 |Status )|.OTConne|
|00000d20| 63 74 09 09 09 09 09 09 | 28 45 6e 64 70 6f 69 6e |ct......|(Endpoin|
|00000d30| 74 52 65 66 20 09 09 09 | 72 65 66 2c 0d 09 09 09 |tRef ...|ref,....|
|00000d40| 09 09 09 09 09 20 54 43 | 61 6c 6c 20 2a 09 09 09 |..... TC|all *...|
|00000d50| 09 73 6e 64 43 61 6c 6c | 2c 0d 09 09 09 09 09 09 |.sndCall|,.......|
|00000d60| 09 09 20 54 43 61 6c 6c | 20 2a 09 09 09 09 72 63 |.. TCall| *....rc|
|00000d70| 76 43 61 6c 6c 29 3b 0d | 0d 45 58 54 45 52 4e 5f |vCall);.|.EXTERN_|
|00000d80| 00 00 00 36 06 60 80 00 | 00 00 03 36 2e 36 2b 36 |...6.`..|...6.6+6|
|00000d90| 2e 36 2c 20 43 6f 70 79 | 72 69 67 68 74 20 41 70 |.6, Copy|right Ap|
|00000da0| 70 6c 65 20 43 6f 6d 70 | 75 74 65 72 2c 20 49 6e |ple Comp|uter, In|
|00000db0| 63 2e 20 31 39 38 31 2d | 39 39 00 00 00 28 02 06 |c. 1981-|99...(..|
|00000dc0| 60 80 00 06 48 65 61 70 | 2e 70 00 00 00 00 00 00 |`...Heap|.p......|
|00000dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000de0| 00 00 00 00 00 00 00 00 | 01 00 00 00 01 66 00 00 |........|.....f..|
|00000df0| 00 66 00 00 00 46 0d 59 | cc 38 17 24 00 00 00 1c |.f...F.Y|.8.$....|
|00000e00| 00 46 00 01 76 65 72 73 | 00 00 00 12 66 74 61 67 |.F..vers|....ftag|
|00000e10| 00 00 00 1e 00 01 ff ff | 20 00 00 00 00 00 00 00 |........| .......|
|00000e20| 00 00 ff ff 00 00 00 3a | 0d 59 cb a0 00 00 00 00 |.......:|.Y......|
|00000e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+